home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n09.arc / FORMAT.PAN < prev    next >
Text File  |  1990-04-09  |  1KB  |  37 lines
  1.         ******************************************************
  2.         ***                                                ***
  3.         *** PAN script for use with the DOS Format utility ***
  4.         ***                                                ***
  5.         ******************************************************
  6.  
  7. IfLoad "c:\dos\format.com"
  8. Else
  9.     Output "^M^J^GPAN is unable to load the format program.  Please edit the file FORMAT.PAN and^M^J"
  10.     Output "correct the 'IfLoad' command to include the appropriate pathname for PAN to^M^J"
  11.     Output "locate the file FORMAT.COM on your PC."
  12.     Quit
  13. EndIf
  14. Output "Enter drive, A or B: "
  15. Label try_again
  16. GetKey
  17. IfKey "Aa"
  18.     Output "A^M^J"
  19.     Go "A:"
  20.     Jump waiter
  21. EndIf
  22. IfKey "Bb"
  23.     Output "B^M^J"
  24.     Go "B:"
  25.     Jump waiter
  26. EndIf
  27. IfKey "[Esc]^C"
  28.     Quit
  29. Else
  30.     Output "^G"
  31.     Jump try_again
  32. EndIf
  33. Label waiter
  34. Key "[Enter]"
  35. WaitChild
  36. Quit
  37.